home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / qb4bas45.zip / QB4BAS.BI < prev    next >
Text File  |  1989-09-30  |  31KB  |  886 lines
  1. '*****************************************************************
  2. '***  QB4BAS.BI - Assembly Support Include File                ***
  3. '***                                                           ***
  4. '***        Written by Harold Thomson                          ***
  5. '***                                                           ***
  6. '***  Purpose:                                                 ***
  7. '***       This include file gives the DECLARE statements for  ***
  8. '***       the assembly language functions and subroutines     ***
  9. '***       found in QB4BAS.LIB and QB4BAS.QLB.                 ***
  10. '***                                                           ***
  11. '*****************************************************************
  12. '
  13. '*****************************************************************
  14. '***        DATE Related Functions and SubRoutines ...         ***
  15. '*****************************************************************
  16. '
  17. 'Function ****************** QDATECVT ******************* Function
  18. '
  19. DECLARE FUNCTION QDATECVT$ (InDate AS STRING, _
  20.                             FunCode AS STRING)
  21. '
  22. 'Function ****************** QDATE    ******************* Function
  23. '
  24. DECLARE FUNCTION QDATE$ (FunCode AS STRING)
  25. '
  26. 'Function ****************** QDATEIN  ******************* Function
  27. '
  28. DECLARE FUNCTION QDATEIN$ (InDate AS STRING, _
  29.                            FunCode AS STRING)
  30. '
  31. 'Function ***************** QDATE2INT ******************* Function
  32. '
  33. DECLARE FUNCTION QDATE2INT% (InDate AS STRING)
  34. '
  35. 'Function ***************** QINT2DATE ******************* Function
  36. '
  37. DECLARE FUNCTION QINT2DATE$ (BYVAL InDate AS INTEGER)
  38. '
  39. 'Function ****************** QJULCALC ******************* Function
  40. '
  41. DECLARE FUNCTION QJULCALC% (CalcDate AS STRING, _
  42.                             BYVAL Amount AS INTEGER)
  43. '
  44. '
  45. '*****************************************************************
  46. '***        DISK Related Functions and SubRoutines ...         ***
  47. '*****************************************************************
  48. '
  49. 'SubRoutine **************** QDISKSTAT **************** SubRoutine
  50. '
  51. DECLARE SUB QDISKSTAT (DrvName AS STRING, _
  52.                        FreeClusters AS INTEGER, _
  53.                        TotClusters AS INTEGER, _
  54.                        SectorSize AS INTEGER, _
  55.                        SectorsCluster AS INTEGER)
  56. '
  57. 'Function ****************** QDISKTYP  ****************** Function
  58. '
  59. DECLARE FUNCTION QDISKTYP% ()
  60. '
  61. 'Function ****************** QDRVSPACE ****************** Function
  62. '
  63. DECLARE FUNCTION QDRVSPACE& (DrvName AS STRING)
  64. '
  65. 'Function ****************** QGETDRV  ******************* Function
  66. '
  67. DECLARE FUNCTION QGETDRV$ ()
  68. '
  69. 'Function ****************** QGETVOL  ******************* Function
  70. '
  71. DECLARE FUNCTION QGETVOL$ ()
  72. '
  73. 'SubRoutine **************** QSETDRV  ***************** SubRoutine
  74. '
  75. DECLARE SUB QSETDRV (DrvName AS STRING)
  76. '
  77. 'Function ****************** QSETVOL  ******************* Function
  78. '
  79. DECLARE FUNCTION QSETVOL% (Volid AS STRING)
  80. '
  81. '
  82. '*****************************************************************
  83. '***        FILE Related Functions and SubRoutines ...         ***
  84. '*****************************************************************
  85. '
  86. 'Function ****************** QCNTFILE ******************* Function
  87. '
  88. DECLARE FUNCTION QCNTFILE% (InFileName AS STRING, _
  89.                             BYVAL Attr AS INTEGER)
  90. '
  91. 'Function ****************** QCOPYFIL ******************* Function
  92. '
  93. DECLARE FUNCTION QCOPYFIL% (InFileName AS STRING, _
  94.                             OutFileName AS STRING)
  95. '
  96. 'Function ****************** QDELETE  ******************* Function
  97. '
  98. DECLARE FUNCTION QDELETE% (FileName AS STRING)
  99. '
  100. 'Function ****************** QEXIST   ******************* Function
  101. '
  102. DECLARE FUNCTION QEXIST% (FileName AS STRING)
  103. '
  104. 'Function **************** QFINDFIRST ******************* Function
  105. '
  106. DECLARE FUNCTION QFINDFIRST% (BYVAL Trec AS INTEGER, _
  107.                               DrvStr AS STRING, _
  108.                               BYVAL Attr AS INTEGER)
  109. '
  110. 'Function **************** QFINDNEXT  ******************* Function
  111. '
  112. DECLARE FUNCTION QFINDNEXT% (BYVAL Trec AS INTEGER)
  113. '
  114. 'Function ****************** QFINDF   ******************* Function
  115. '
  116. DECLARE FUNCTION QFINDF% (FileName AS STRING, _
  117.                           BYVAL Attr AS INTEGER)
  118. '
  119. 'Function ****************** QFINDN   ******************* Function
  120. '
  121. DECLARE FUNCTION QFINDN% ()
  122. '
  123. 'SubRoutine **************** QFATTR   ***************** SubRoutine
  124. '
  125. DECLARE SUB QFATTR (Attr AS INTEGER)
  126. '
  127. 'SubRoutine **************** QFDATE   ***************** SubRoutine
  128. '
  129. DECLARE SUB QFDATE (Month AS INTEGER, _
  130.                     Day AS INTEGER, _
  131.                     Year AS INTEGER)
  132. '
  133. 'SubRoutine **************** QFDATEI  ***************** SubRoutine
  134. '
  135. DECLARE SUB QFDATEI (MDY AS INTEGER)
  136. '
  137. 'SubRoutine **************** QFNAME   ***************** SubRoutine
  138. '
  139. DECLARE SUB QFNAME (FileName AS STRING)
  140. '
  141. 'SubRoutine **************** QFSIZE   ***************** SubRoutine
  142. '
  143. DECLARE SUB QFSIZE (Size AS LONG)
  144. '
  145. 'SubRoutine **************** QFSTAMP  ***************** SubRoutine
  146. '
  147. DECLARE FUNCTION QFSTAMP (Qfilname AS STRING, _
  148.                           Qfiltime AS STRING, _
  149.                           Qfildate AS STRING)
  150. '
  151. 'SubRoutine **************** QFTIME   ***************** SubRoutine
  152. '
  153. DECLARE SUB QFTIME (Hrs AS INTEGER, _
  154.                     Min AS INTEGER)
  155. '
  156. 'Function ****************** QFCREATE ******************* Function
  157. '
  158. DECLARE FUNCTION QFCREATE% (FileName AS STRING, _
  159.                             BYVAL FAttr AS INTEGER, _
  160.                             Handle AS INTEGER)
  161. '
  162. 'Function ****************** QFOPEN   ******************* Function
  163. '
  164. DECLARE FUNCTION QFOPEN% (FileName AS STRING, _
  165.                           BYVAL FAccess AS INTEGER, _
  166.                           Handle AS INTEGER)
  167. '
  168. 'Function ****************** QFREAD   ******************* Function
  169. '
  170. DECLARE FUNCTION QFREAD% (BYVAL Handle AS INTEGER, _
  171.                           Buffer AS STRING, _
  172.                           BYVAL ReadLen AS INTEGER, _
  173.                           BytesRead AS INTEGER)
  174. '
  175. 'Function ****************** QFSETEND ******************* Function
  176. '
  177. DECLARE FUNCTION QFSETEND% (BYVAL Handle AS INTEGER)
  178. '
  179. 'Function ****************** QFSETREC ******************* Function
  180. '
  181. DECLARE FUNCTION QFSETREC% (BYVAL Handle AS INTEGER, _
  182.                             BYVAL RecLen AS INTEGER, _
  183.                             BYVAL RecNum AS INTEGER)
  184. '
  185. 'Function ****************** QFSETRECL ****************** Function
  186. '
  187. DECLARE FUNCTION QFSETRECL% (BYVAL Handle AS INTEGER, _
  188.                              BYVAL RecLen AS INTEGER, _
  189.                              BYVAL RecNum AS LONG)
  190. '
  191. 'Function ******************** QFLOF ******************** Function
  192. '
  193. DECLARE FUNCTION QFLOF& (BYVAL Handle AS INTEGER)
  194. '
  195. 'Function ****************** QFWRITE  ******************* Function
  196. '
  197. DECLARE FUNCTION QFWRITE% (BYVAL Handle AS INTEGER, _
  198.                            Buffer AS STRING, _
  199.                            BYVAL WriteLen AS INTEGER, _
  200.                            BytesWritten AS INTEGER)
  201. '
  202. 'Function ****************** QFCLOSE  ******************* Function
  203. '
  204. DECLARE FUNCTION QFCLOSE% (BYVAL Handle AS INTEGER)
  205. '
  206. 'Function ****************** QMOVEFIL ******************* Function
  207. '
  208. DECLARE FUNCTION QMOVEFIL% (InFileName AS STRING, _
  209.                             OutFileName AS STRING)
  210. '
  211. 'Function ****************** QPARSEF  ******************* Function
  212. '
  213. DECLARE FUNCTION QPARSEF% (Pstring AS STRING, _
  214.                            BYVAL Pseg AS INTEGER, _
  215.                            BYVAL Pptr AS INTEGER)
  216. '
  217. 'Function ****************** QRENAME  ******************* Function
  218. '
  219. DECLARE FUNCTION QRENAME% (InFileName AS STRING, _
  220.                            OutFileName AS STRING)
  221. '
  222. 'Function ******************* QSHARE ******************** Function
  223. '
  224. DECLARE FUNCTION QSHARE% ()
  225. '
  226. 'Function ****************** QTREAD   ******************* Function
  227. '
  228. DECLARE FUNCTION QTREAD% (BYVAL Handle AS INTEGER, _